home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / misc / sci / Regression.lha / regression / regression < prev   
Encoding:
Text File  |  1995-04-23  |  2.1 KB  |  66 lines
  1. /* Regression für TurboCalc */
  2. address TCALC
  3. options results
  4. 'meldung "Bitte Block mit x-Wert markieren, dann weiter" "Regressionsgerade"'
  5. "lieswert blockx()"
  6. xpos = result
  7. "lieswert blocky()"
  8. y = result
  9. "lieswert blockbreite()"
  10. xwidth1 = result
  11. "lieswert blockhöhe()"
  12. yrange = result
  13. bottom = y+yrange
  14. if xwidth1 ~= 1 then do
  15. 'meldung "Block zu breit" "Fehler"'
  16. exit
  17. end
  18. xwerte = "bereichabs("y";"xpos";"yrange";1)"
  19. 'meldung "Bitte Cursor in Spalte mit y-Werten, dann weiter" "Regressionsgerade"'
  20.  
  21. "lieswert spaltennummer()"
  22. ypos = result
  23. ywerte = "bereichabs("y";"ypos";"yrange";1)"
  24. "select("ywerte")"
  25. 'Meldung "Cursor in Spalte mit Platz nach rechts setzen" "Regressionsgerade"'
  26. bildaufbau 0
  27. "lieswert spaltennummer()"
  28. xrow = result
  29. 'schreibe("=mittelwert('XWerte')";zelleabs('bottom+2';'xrow'))'
  30. 'schreibe("=mittelwert('YWerte')";zelleabs('bottom+2';'xrow+1'))'
  31.  
  32. 'schreibe("=(zelle(0;-'xrow-xpos')-zelleabs('bottom+2';'xrow'))*(zelle(0;-'xrow-ypos')-zelleabs('bottom+2';'xrow+1'))";zelleabs('y';'xrow'))'
  33. zaehler = 'bereichabs('y';'xrow';'yrange';1)'
  34. 'select('zaehler')'
  35. 'zahlenformat(14)'
  36. "kopieren(zelleabs("y";"xrow"))" 
  37. "einfügen("Zaehler")"
  38. 'schreibe("=(zelle(0;-'xrow+1-xpos')-zelleabs('bottom+2';'xrow'))^2";zelleabs('y';'xrow+1'))'
  39. 'kopieren(zelleabs('y';'xrow+1'))'
  40. nenner= 'bereichabs('y';'xrow+1';'yrange';1)'
  41. 'select('nenner')'
  42. 'zahlenformat(14)'
  43. 'einfügen('Nenner')'
  44. /*'verbergen(0;'zaehler')'*/
  45. /*'verbergen(0;'nenner')'*/
  46.  
  47. 'schreibe("=summe('Zaehler')/summe('Nenner')";zelleabs('y+1';'xrow+2'))'
  48.  
  49. /* ymittel-steigung*xmittel */
  50. 'schreibe("=zelleabs('bottom+2';'xrow+1')-(zelleabs('y+1';'xrow+2')*zelleabs('bottom+2';'xrow'))";zelleabs('y+4';'xrow+2'))'
  51. 'select(bereichabs('bottom+1';'xpos';2;'xrow+1-xpos'))'
  52. 'zahlenformat(14)'
  53. 'schreibe("Xmittel";zelleabs('bottom+1';'xrow'))'
  54. 'schreibe("Ymittel";zelleabs('bottom+1';'xrow+1'))'
  55. 'schreibe("m";zelleabs('y';'xrow+2'))'
  56. 'schreibe("t";zelleabs('y+3';'xrow+2'))'
  57. 'zahlenformat(14;bereichabs('y+1';'xrow+2';4;1))'
  58.  
  59. /* das neuberechnen, weil er sonst manchmal mist baut! */
  60.  
  61. neuberechnen 1
  62. bildaufbau 1
  63. neuberechnen
  64. bildaufbau 2
  65. neuberechnen
  66.